home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 65 / 065.d81 / pegasus boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  89 lines
  1. 12 print"[144][147]":poke53280,.:poke53281,.
  2. 14 gosub61000:v=53248
  3. 24 sys57812"screen.go",8,0:poke780,.:poke781,.:poke782,192:sys65493
  4. 25 sys57812"peg.font1",8,0:poke780,.:poke781,.:poke782,56:sys65493
  5. 26 print"[147]":poke53280,.:poke53281,.
  6. 60 poke53272,31
  7. 70 for x=1to3:on x gosub 100,200,300
  8. 72 geta$:ifa$=""then72
  9. 74 sys49152:next x
  10. 81 pokev+21,.:pokev+28,.:pokev+27,.:pokev+16,.:pokev+23,.:pokev+29,.
  11. 82 poke53272,21
  12. 84 printchr$(147):print:print
  13. 85 print"[144]load"chr$(34)"p-cavern"chr$(34)",8":print:print:print:print
  14. 86 print"run":print"[154]loading....[144]"
  15. 87 printchr$(19):poke198,2:poke631,13:poke632,13:end
  16. 100 print"[147]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
  17. 102 print"^       [155][212][200][197][160][195][200][193][204][204][197][206][199][197][160][207][198][160][208][197][199][193][211][213][211]      ^":print"^"tab(38)"^"
  18. 104 print"^[155] [198]ortunate were those whose life was ^"
  19. 105 print"^[155] spent among the [210]oyalty of [205]ount    ^"
  20. 106 print"^[155] [207]lympus. [200]ere lived [218]eus, [193]thena and^"
  21. 107 print"^[155] their son, [208]erseus. [208]erseus was sent^"
  22. 108 print"^[155] to rid the earth of the evil [199]orgon ^"
  23. 109 print"^[155] [205]edusa. [213]nfortunately, [208]erseus was  ^"
  24. 110 print"^[155] unsuccessful in his attempt and was ^"
  25. 111 print"^[155] held prisoner by the [205]edusa.        ^":print"^"tab(38)"^"
  26. 112 print"^[155] [218]eus commissioned the famed winged  ^"
  27. 113 print"^[155] horse, [208]egasus, to rescue his son.  ^"
  28. 114 print"^[155] [200]aving none of this, the [205]edusa     ^"
  29. 115 print"^[155] imprisoned [208]egasus in a huge cavern.^"
  30. 116 print"^[155] [205]eanwhile, the [205]edusa delivered     ^"
  31. 117 print"^[155] twenty gold chalices to [205]ount       ^"
  32. 118 print"^[155] [207]lympus. [213]pon their arrival, the    ^"
  33. 119 print"^[155] chalices turned into fierce dragons!^":print"^"tab(38)"^"
  34. 120 print"^"tab(14)"[208][210][197][211][211][160][193][160][203][197][217]"tab(38)"^":print"^"tab(38)"^"
  35. 122 print"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^":return
  36. 200 print"[147]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
  37. 202 print"^[155] [213]sing a joystick in [208]ort 2, you must^"
  38. 204 print"^[155] guide [208]egasus through three scenes. ^"
  39. 205 print"^[155] [208]ush the stick up and down to move  ^"
  40. 206 print"^[155] [208]egasus up and down. [208]ress [198][201][210][197] to  ^"
  41. 207 print"^[155] fire a crystal."tab(38)"^":print"^"tab(38)"^"
  42. 208 print"^"tab(10)"^[212][200][197][160][195][193][214][197][210][206][160][207][198][160][196][207][207][205]^        ^"
  43. 209 print"^[155] [217]ou must guide [208]egasus many miles to^"
  44. 210 print"^[155] safety. [201]n the cavern you have a    ^"
  45. 211 print"^[155] number of energy units and crystals.^"
  46. 212 print"^[155] [210]oaming the cavern are [195]ave [196]evils. ^"
  47. 213 print"^[155] [201]f you collide with a [195]ave [196]evil, or^"
  48. 214 print"^[155] hit a part of the cave you lose an  ^"
  49. 215 print"^[155] energy unit. [201]f you hit a devil with^"
  50. 216 print"^[155] a crystal, you immediately move 150 ^"
  51. 217 print"^[155] miles through the cavern. [201]f you run^"
  52. 218 print"^[155] out of energy units, the game is    ^"
  53. 219 print"^[155] over. [193]s you progress through the   ^"
  54. 220 print"^[155] cavern, you fly faster and faster.  ^":print"^"tab(38)"^"
  55. 221 print"^"tab(14)"[208][210][197][211][211][160][193][160][203][197][217]"tab(38)"^":print"^"tab(38)"^"
  56. 222 print"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^":return
  57. 300 print"[147]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
  58. 302 print"^"tab(12)"^[205][207][213][206][212] [207][204][217][205][208][213][211]^"tab(38)"^"
  59. 303 print"^[155] [200]ere you have three energy units and^"
  60. 304 print"^[155] unlimited crystals. [217]ou must turn 20^"
  61. 305 print"^[155] dragons into chalices by hitting    ^"
  62. 306 print"^[155] them with a crystal. [194]eware! [212]he    ^"
  63. 307 print"^[155] dragons are breathing fireballs at  ^"
  64. 308 print"^[155] you! [218]eus is so angry that bolts of ^"
  65. 309 print"^[155] lightning are flashing! [193]void these!^":print"^"tab(38)"^"
  66. 310 print"^"tab(13)"^[212][200][197] [205][197][196][213][211][193]^"tab(38)"^"
  67. 311 print"^[155] [212]his is the final confrontation! [217]ou^"
  68. 312 print"^[155] have 4 energy units to get 3 keys.  ^"
  69. 313 print"^[155] [201]f you touch anything in [205]edusa's   ^"
  70. 314 print"^[155] [195]astle, you will be turned to stone.^"
  71. 315 print"^[155] [217]ou may move in any direction. [217]ou  ^"
  72. 316 print"^[155] must rescue [208]erseus and save all on ^"
  73. 317 print"^[155] [205]ount [207]lympus."tab(38)"^"
  74. 318 print"^"tab(38)"^":print"^[155] [199]ood luck with...."tab(38)"^"
  75. 319 print"^"tab(8)"[158][212][200][197][160][195][200][193][204][204][197][206][199][197][160][207][198][160][208][197][199][193][211][213][211]!"tab(38)"^"
  76. 320 print"^"tab(38)"^":print"^"tab(14)"[208][210][197][211][211] [193] [203][197][217]"tab(38)"^"
  77. 322 print"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^":return
  78. 10000 open15,8,15,"s0:pegasus boot":close15:save"pegasus boot",8:end
  79. 61000 poke214,16:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  80. 61130 fori=1to3:print"                                      ":next
  81. 61150 print"        [208]ublished on [204][207][193][196][211][212][193][210] #65     "
  82. 61160 print"      Subscriptions 1-800-831-2694    "
  83. 61180 print"          [193]ll [210]ights [210]eserved         "
  84. 61190 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  85. 61200 au$="[195]hallenge of [208]egasus":poke214,18:print
  86. 61205 printspc(20-len(au$)/2)"[152]"au$
  87. 61210 au$="[194]y [202]ames [200]ilty  ([195]) 1989":poke214,19:print
  88. 61220 printspc(20-len(au$)/2)"[152]"au$"":return
  89.